home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / comm / misc / DragonDaemon.lha / DragonDaemon-Install / ADM / DragonDial.adm next >
Encoding:
Text File  |  1999-05-08  |  1.4 KB  |  63 lines
  1. /* $VER: DragonDial.adm 0.6 (20.04.99)
  2.  
  3.    (C) 1999 by J.Reinert alias "Techno"  ac-techno@t-online.de
  4.  
  5.    Wählt die Telefonnummer des markierten Datensatzes über
  6.    eine angeschlossene DataBox "Speed Dragon" an.
  7.  
  8.    Voraussetzung:   - Installiertes ADM (Adressenverwaltung)
  9.                     - Installiertes und konfiguriertes "DragonTools"
  10.                     - DataBox "Speed Dragon" (von Hagenuk)
  11.                     - aktives Commoditie "DragonDaemon"
  12.  
  13. */
  14.  
  15. OPTIONS RESULTS
  16.  
  17. /* ----- Prüfen, ob DragonDaemon läuft */
  18.  
  19. if show('P','DragonDaemon') then do
  20.  
  21. /* ----- RexxReqtools-Library öffnen */
  22.  
  23.   IF ~SHOW("L","rexxreqtools.library") THEN CALL ADDLIB("rexxreqtools.library",0,-30,0)
  24.  
  25. /* ----- Aktuellen Datensatz holen */
  26.  
  27.   GETADDRESS ADM EXTFILE    
  28.  
  29. /* ----- Telefonnummern holen */
  30.  
  31.   Phone=ADM.TELEPHONE
  32.  
  33. /* ----- Leerzeichen an Anfang und Ende entfernen */
  34.   
  35.   Phone= COMPRESS(Phone,' /-,.')
  36.  
  37. /* ----- DragonDaemon addressieren */
  38.   
  39.   Address "DragonDaemon"
  40.   
  41. /* ----- Nummer wählen */
  42.   
  43.   DD_DIALNUMBER Phone
  44.  
  45. /* ----- Auf Fehler prüfen */
  46.   if result="ERROR" then do
  47.     Tags = "rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext"
  48.     Info = "Nummer wurde nicht gewählt!"
  49.     dummy=rtezrequest(Info,"Okay",,Tags)
  50.   end
  51.  
  52. end
  53. else do
  54.  
  55. /* ----- Fehler, "DragonDaemon" läuft nicht*/
  56.  
  57.   Tags = "rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext"
  58.   Info = "'DragonDaemon' ist noch nicht aktiv!"
  59.   dummy=rtezrequest(Info,"Okay",,Tags)
  60. end
  61. EXIT
  62.  
  63.